home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / forms.hpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  40.6 KB  |  1,003 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1998 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Forms.pas' rev: 3.00
  6.  
  7. #ifndef FormsHPP
  8. #define FormsHPP
  9. #include <Imm.hpp>
  10. #include <Controls.hpp>
  11. #include <Menus.hpp>
  12. #include <Graphics.hpp>
  13. #include <Classes.hpp>
  14. #include <SysUtils.hpp>
  15. #include <Windows.hpp>
  16. #include <Messages.hpp>
  17. #include <SysInit.hpp>
  18. #include <System.hpp>
  19.  
  20. //-- user supplied -----------------------------------------------------------
  21.  
  22. namespace Forms
  23. {
  24. //-- type declarations -------------------------------------------------------
  25. enum TScrollBarKind { sbHorizontal, sbVertical };
  26.  
  27. typedef Word TScrollBarInc;
  28.  
  29. class DELPHICLASS TControlScrollBar;
  30. class DELPHICLASS TScrollingWinControl;
  31. class PASCALIMPLEMENTATION TScrollingWinControl : public Controls::TWinControl 
  32. {
  33.     typedef Controls::TWinControl inherited;
  34.     
  35. private:
  36.     TControlScrollBar* FHorzScrollBar;
  37.     TControlScrollBar* FVertScrollBar;
  38.     bool FAutoScroll;
  39.     int FAutoRangeCount;
  40.     bool FUpdatingScrollBars;
  41.     void __fastcall CalcAutoRange(void);
  42.     void __fastcall ScaleScrollBars(int M, int D);
  43.     void __fastcall SetAutoScroll(bool Value);
  44.     void __fastcall SetHorzScrollBar(TControlScrollBar* Value);
  45.     void __fastcall SetVertScrollBar(TControlScrollBar* Value);
  46.     void __fastcall UpdateScrollBars(void);
  47.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  48.     HIDESBASE MESSAGE void __fastcall WMHScroll(Messages::TWMScroll &Message);
  49.     HIDESBASE MESSAGE void __fastcall WMVScroll(Messages::TWMScroll &Message);
  50.     
  51. protected:
  52.     void __fastcall AutoScrollInView(Controls::TControl* AControl);
  53.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  54.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  55.     virtual void __fastcall CreateWnd(void);
  56.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &ARect);
  57.     __property bool AutoScroll = {read=FAutoScroll, write=SetAutoScroll, default=1};
  58.     
  59. public:
  60.     __fastcall virtual TScrollingWinControl(Classes::TComponent* AOwner);
  61.     __fastcall virtual ~TScrollingWinControl(void);
  62.     void __fastcall DisableAutoRange(void);
  63.     void __fastcall EnableAutoRange(void);
  64.     void __fastcall ScrollInView(Controls::TControl* AControl);
  65.     
  66. __published:
  67.     __property TControlScrollBar* HorzScrollBar = {read=FHorzScrollBar, write=SetHorzScrollBar};
  68.     __property TControlScrollBar* VertScrollBar = {read=FVertScrollBar, write=SetVertScrollBar};
  69. public:
  70.         
  71.     /* TWinControl.CreateParented */ __fastcall TScrollingWinControl(HWND ParentWindow) : Controls::TWinControl(
  72.         ParentWindow) { }
  73.     
  74. };
  75.  
  76. class PASCALIMPLEMENTATION TControlScrollBar : public Classes::TPersistent 
  77. {
  78.     typedef Classes::TPersistent inherited;
  79.     
  80. private:
  81.     TScrollingWinControl* FControl;
  82.     TScrollBarInc FIncrement;
  83.     int FPosition;
  84.     int FRange;
  85.     int FCalcRange;
  86.     TScrollBarKind FKind;
  87.     Word FMargin;
  88.     bool FVisible;
  89.     bool FTracking;
  90.     bool FScaled;
  91.     __fastcall TControlScrollBar(TScrollingWinControl* AControl, TScrollBarKind AKind);
  92.     void __fastcall CalcAutoRange(void);
  93.     int __fastcall ControlSize(bool ControlSB, bool AssumeSB);
  94.     void __fastcall DoSetRange(int Value);
  95.     int __fastcall GetScrollPos(void);
  96.     bool __fastcall NeedsScrollBarVisible(void);
  97.     void __fastcall ScrollMessage(Messages::TWMScroll &Msg);
  98.     void __fastcall SetPosition(int Value);
  99.     void __fastcall SetRange(int Value);
  100.     void __fastcall SetVisible(bool Value);
  101.     bool __fastcall IsRangeStored(void);
  102.     void __fastcall Update(bool ControlSB, bool AssumeSB);
  103.     
  104. public:
  105.     virtual void __fastcall Assign(Classes::TPersistent* Source);
  106.     __property TScrollBarKind Kind = {read=FKind, nodefault};
  107.     __property int ScrollPos = {read=GetScrollPos, nodefault};
  108.     
  109. __published:
  110.     __property Word Margin = {read=FMargin, write=FMargin, default=0};
  111.     __property TScrollBarInc Increment = {read=FIncrement, write=FIncrement, default=8};
  112.     __property int Range = {read=FRange, write=SetRange, stored=IsRangeStored, default=0};
  113.     __property int Position = {read=FPosition, write=SetPosition, default=0};
  114.     __property bool Tracking = {read=FTracking, write=FTracking, default=0};
  115.     __property bool Visible = {read=FVisible, write=SetVisible, default=1};
  116. public:
  117.     /* TPersistent.Destroy */ __fastcall virtual ~TControlScrollBar(void) { }
  118.     
  119. public:
  120.     /* TObject.Create */ __fastcall TControlScrollBar(void) : Classes::TPersistent() { }
  121.     
  122. };
  123.  
  124. enum TFormBorderStyle { bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin };
  125.  
  126. typedef TFormBorderStyle TBorderStyle;
  127.  
  128. class DELPHICLASS TScrollBox;
  129. class PASCALIMPLEMENTATION TScrollBox : public Forms::TScrollingWinControl 
  130. {
  131.     typedef Forms::TScrollingWinControl inherited;
  132.     
  133. private:
  134.     TFormBorderStyle FBorderStyle;
  135.     Classes::TNotifyEvent FOnResize;
  136.     void __fastcall SetBorderStyle(TBorderStyle Value);
  137.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  138.     HIDESBASE MESSAGE void __fastcall WMNCHitTest(Messages::TMessage &Message);
  139.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  140.     
  141. protected:
  142.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  143.     DYNAMIC void __fastcall Resize(void);
  144.     
  145. public:
  146.     __fastcall virtual TScrollBox(Classes::TComponent* AOwner);
  147.     
  148. __published:
  149.     __property Align ;
  150.     __property AutoScroll ;
  151.     __property TBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, default=1};
  152.     __property DragCursor ;
  153.     __property DragMode ;
  154.     __property Enabled ;
  155.     __property Color ;
  156.     __property Ctl3D ;
  157.     __property Font ;
  158.     __property ParentColor ;
  159.     __property ParentCtl3D ;
  160.     __property ParentFont ;
  161.     __property ParentShowHint ;
  162.     __property PopupMenu ;
  163.     __property ShowHint ;
  164.     __property TabOrder ;
  165.     __property TabStop ;
  166.     __property Visible ;
  167.     __property OnClick ;
  168.     __property OnDblClick ;
  169.     __property OnDragDrop ;
  170.     __property OnDragOver ;
  171.     __property OnEndDrag ;
  172.     __property OnEnter ;
  173.     __property OnExit ;
  174.     __property OnMouseDown ;
  175.     __property OnMouseMove ;
  176.     __property OnMouseUp ;
  177.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize};
  178. public:
  179.     /* TScrollingWinControl.Destroy */ __fastcall virtual ~TScrollBox(void) { }
  180.     
  181. public:
  182.     /* TWinControl.CreateParented */ __fastcall TScrollBox(HWND ParentWindow) : Forms::TScrollingWinControl(
  183.         ParentWindow) { }
  184.     
  185. };
  186.  
  187. class DELPHICLASS TDesigner;
  188. class DELPHICLASS TCustomForm;
  189. enum TBorderIcon { biSystemMenu, biMinimize, biMaximize, biHelp };
  190.  
  191. typedef Set<TBorderIcon, biSystemMenu, biHelp>  TBorderIcons;
  192.  
  193. enum TWindowState { wsNormal, wsMinimized, wsMaximized };
  194.  
  195. enum TShowAction { saIgnore, saRestore, saMinimize, saMaximize };
  196.  
  197. enum TFormStyle { fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop };
  198.  
  199. enum TPosition { poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter };
  200.  
  201. enum TTileMode { tbHorizontal, tbVertical };
  202.  
  203. enum Forms__5 { fsCreating, fsVisible, fsShowing, fsModal, fsCreatedMDIChild };
  204.  
  205. typedef Set<Forms__5, fsCreating, fsCreatedMDIChild>  TFormState;
  206.  
  207. enum TPrintScale { poNone, poProportional, poPrintToFit };
  208.  
  209. typedef int TModalResult;
  210.  
  211. __interface IOleForm;
  212. typedef System::DelphiInterface<IOleForm> _di_IOleForm;
  213. __interface IOleForm : public IUnknown /* __guid="{CD02E1C1-52DA-11D0-9EA6-0020AF3D82DA}" */
  214. {
  215.     
  216. public:
  217.     virtual void __fastcall OnDestroy(void) = 0;
  218.     virtual void __fastcall OnResize(void) = 0;
  219. };
  220.  
  221. enum TCloseAction { caNone, caHide, caFree, caMinimize };
  222.  
  223. typedef void __fastcall (__closure *TCloseEvent)(System::TObject* Sender, TCloseAction &Action);
  224.  
  225. typedef void __fastcall (__closure *TCloseQueryEvent)(System::TObject* Sender, bool &CanClose);
  226.  
  227. class DELPHICLASS TForm;
  228. class PASCALIMPLEMENTATION TCustomForm : public Forms::TScrollingWinControl 
  229. {
  230.     typedef Forms::TScrollingWinControl inherited;
  231.     
  232. private:
  233.     Controls::TWinControl* FActiveControl;
  234.     Controls::TWinControl* FFocusedControl;
  235.     TBorderIcons FBorderIcons;
  236.     TFormBorderStyle FBorderStyle;
  237.     TWindowState FWindowState;
  238.     TShowAction FShowAction;
  239.     bool FKeyPreview;
  240.     bool FActive;
  241.     TFormStyle FFormStyle;
  242.     TPosition FPosition;
  243.     TTileMode FTileMode;
  244.     TFormState FFormState;
  245.     bool FDropTarget;
  246.     TPrintScale FPrintScale;
  247.     Controls::TControlCanvas* FCanvas;
  248.     System::AnsiString FHelpFile;
  249.     Graphics::TIcon* FIcon;
  250.     Menus::TMainMenu* FMenu;
  251.     TModalResult FModalResult;
  252.     TDesigner* FDesigner;
  253.     HWND FClientHandle;
  254.     Menus::TMenuItem* FWindowMenu;
  255.     int FPixelsPerInch;
  256.     Menus::TMenuItem* FObjectMenuItem;
  257.     _di_IOleForm FOleForm;
  258.     int FClientWidth;
  259.     int FClientHeight;
  260.     int FTextHeight;
  261.     void *FDefClientProc;
  262.     void *FClientInstance;
  263.     Controls::TWinControl* FActiveOleControl;
  264.     Classes::TNotifyEvent FOnActivate;
  265.     TCloseEvent FOnClose;
  266.     TCloseQueryEvent FOnCloseQuery;
  267.     Classes::TNotifyEvent FOnDeactivate;
  268.     Classes::THelpEvent FOnHelp;
  269.     Classes::TNotifyEvent FOnHide;
  270.     Classes::TNotifyEvent FOnPaint;
  271.     Classes::TNotifyEvent FOnResize;
  272.     Classes::TNotifyEvent FOnShow;
  273.     Classes::TNotifyEvent FOnCreate;
  274.     Classes::TNotifyEvent FOnDestroy;
  275.     virtual void __fastcall AlignControls(Controls::TControl* AControl, Windows::TRect &Rect);
  276.     void __fastcall RefreshMDIMenu(void);
  277.     void __fastcall ClientWndProc(Messages::TMessage &Message);
  278.     void __fastcall CloseModal(void);
  279.     TForm* __fastcall GetActiveMDIChild(void);
  280.     Graphics::TCanvas* __fastcall GetCanvas(void);
  281.     HICON __fastcall GetIconHandle(void);
  282.     int __fastcall GetMDIChildCount(void);
  283.     TForm* __fastcall GetMDIChildren(int I);
  284.     int __fastcall GetPixelsPerInch(void);
  285.     bool __fastcall GetScaled(void);
  286.     int __fastcall GetTextHeight(void);
  287.     void __fastcall IconChanged(System::TObject* Sender);
  288.     bool __fastcall IsAutoScrollStored(void);
  289.     bool __fastcall IsClientSizeStored(void);
  290.     HIDESBASE bool __fastcall IsColorStored(void);
  291.     bool __fastcall IsForm(void);
  292.     bool __fastcall IsFormSizeStored(void);
  293.     bool __fastcall IsIconStored(void);
  294.     void __fastcall MergeMenu(bool MergeState);
  295.     void __fastcall ReadIgnoreFontProperty(Classes::TReader* Reader);
  296.     void __fastcall ReadTextHeight(Classes::TReader* Reader);
  297.     void __fastcall SetActive(bool Value);
  298.     void __fastcall SetActiveControl(Controls::TWinControl* Control);
  299.     void __fastcall SetBorderIcons(TBorderIcons Value);
  300.     void __fastcall SetBorderStyle(TFormBorderStyle Value);
  301.     HIDESBASE void __fastcall SetClientHeight(int Value);
  302.     HIDESBASE void __fastcall SetClientWidth(int Value);
  303.     void __fastcall SetDesigner(TDesigner* ADesigner);
  304.     void __fastcall SetFormStyle(TFormStyle Value);
  305.     void __fastcall SetIcon(Graphics::TIcon* Value);
  306.     void __fastcall SetMenu(Menus::TMainMenu* Value);
  307.     void __fastcall SetPixelsPerInch(int Value);
  308.     void __fastcall SetPosition(TPosition Value);
  309.     void __fastcall SetScaled(bool Value);
  310.     HIDESBASE void __fastcall SetVisible(bool Value);
  311.     void __fastcall SetWindowFocus(void);
  312.     void __fastcall SetWindowMenu(Menus::TMenuItem* Value);
  313.     void __fastcall SetObjectMenuItem(Menus::TMenuItem* Value);
  314.     void __fastcall SetWindowState(TWindowState Value);
  315.     void __fastcall WritePixelsPerInch(Classes::TWriter* Writer);
  316.     void __fastcall WriteTextHeight(Classes::TWriter* Writer);
  317.     Graphics::TColor __fastcall NormalColor(void);
  318.     HIDESBASE MESSAGE void __fastcall WMPaint(Messages::TWMPaint &Message);
  319.     HIDESBASE MESSAGE void __fastcall WMEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  320.     MESSAGE void __fastcall WMIconEraseBkgnd(Messages::TWMEraseBkgnd &Message);
  321.     MESSAGE void __fastcall WMQueryDragIcon(Messages::TWMNoParams &Message);
  322.     MESSAGE void __fastcall WMNCCreate(Messages::TWMNCCreate &Message);
  323.     HIDESBASE MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  324.     HIDESBASE MESSAGE void __fastcall WMCommand(Messages::TWMCommand &Message);
  325.     MESSAGE void __fastcall WMInitMenuPopup(Messages::TWMInitMenuPopup &Message);
  326.     MESSAGE void __fastcall WMMenuSelect(Messages::TWMMenuSelect &Message);
  327.     MESSAGE void __fastcall WMActivate(Messages::TWMActivate &Message);
  328.     HIDESBASE MESSAGE void __fastcall WMSize(Messages::TWMSize &Message);
  329.     MESSAGE void __fastcall WMClose(Messages::TWMNoParams &Message);
  330.     MESSAGE void __fastcall WMQueryEndSession(Messages::TWMQueryEndSession &Message);
  331.     HIDESBASE MESSAGE void __fastcall WMSysCommand(Messages::TWMSysCommand &Message);
  332.     MESSAGE void __fastcall WMShowWindow(Messages::TWMShowWindow &Message);
  333.     MESSAGE void __fastcall WMMDIActivate(Messages::TWMMDIActivate &Message);
  334.     MESSAGE void __fastcall WMNextDlgCtl(Messages::TWMNextDlgCtl &Message);
  335.     MESSAGE void __fastcall WMEnterMenuLoop(Messages::TMessage &Message);
  336.     MESSAGE void __fastcall WMHelp(Messages::TWMHelp &Message);
  337.     MESSAGE void __fastcall CMActivate(Messages::TWMNoParams &Message);
  338.     MESSAGE void __fastcall CMAppSysCommand(Messages::TMessage &Message);
  339.     MESSAGE void __fastcall CMDeactivate(Messages::TWMNoParams &Message);
  340.     HIDESBASE MESSAGE void __fastcall CMDialogKey(Messages::TWMKey &Message);
  341.     HIDESBASE MESSAGE void __fastcall CMColorChanged(Messages::TMessage &Message);
  342.     HIDESBASE MESSAGE void __fastcall CMCtl3DChanged(Messages::TMessage &Message);
  343.     HIDESBASE MESSAGE void __fastcall CMFontChanged(Messages::TMessage &Message);
  344.     MESSAGE void __fastcall CMMenuChanged(Messages::TMessage &Message);
  345.     HIDESBASE MESSAGE void __fastcall CMShowingChanged(Messages::TMessage &Message);
  346.     MESSAGE void __fastcall CMIconChanged(Messages::TMessage &Message);
  347.     MESSAGE void __fastcall CMRelease(Messages::TMessage &Message);
  348.     MESSAGE void __fastcall CMTextChanged(Messages::TMessage &Message);
  349.     MESSAGE void __fastcall CMUIActivate(void *Message);
  350.     HIDESBASE MESSAGE void __fastcall CMParentFontChanged(Messages::TMessage &Message);
  351.     
  352. protected:
  353.     DYNAMIC void __fastcall Activate(void);
  354.     DYNAMIC void __fastcall ActiveChanged(void);
  355.     DYNAMIC void __fastcall ChangeScale(int M, int D);
  356.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  357.     virtual void __fastcall CreateWindowHandle(const Controls::TCreateParams &Params);
  358.     virtual void __fastcall CreateWnd(void);
  359.     DYNAMIC void __fastcall Deactivate(void);
  360.     virtual void __fastcall DefaultHandler(void *Message);
  361.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  362.     virtual void __fastcall DestroyWindowHandle(void);
  363.     DYNAMIC void __fastcall DoHide(void);
  364.     DYNAMIC void __fastcall DoShow(void);
  365.     virtual Windows::TRect __fastcall GetClientRect(void);
  366.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  367.     virtual void __fastcall Loaded(void);
  368.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  369.         );
  370.     DYNAMIC void __fastcall Paint(void);
  371.     virtual void __fastcall PaintWindow(HDC DC);
  372.     DYNAMIC bool __fastcall PaletteChanged(bool Foreground);
  373.     DYNAMIC void __fastcall SetChildOrder(Classes::TComponent* Child, int Order);
  374.     virtual void __fastcall ReadState(Classes::TReader* Reader);
  375.     DYNAMIC void __fastcall Resize(void);
  376.     virtual void __fastcall SetParent(Controls::TWinControl* AParent);
  377.     virtual void __fastcall ValidateRename(Classes::TComponent* AComponent, const System::AnsiString CurName
  378.         , const System::AnsiString NewName);
  379.     DYNAMIC void __fastcall VisibleChanging(void);
  380.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  381.     virtual void __fastcall AfterConstruction(void);
  382.     virtual void __fastcall BeforeDestruction(void);
  383.     __property TForm* ActiveMDIChild = {read=GetActiveMDIChild};
  384.     __property TBorderIcons BorderIcons = {read=FBorderIcons, write=SetBorderIcons, stored=IsForm, default=7
  385.         };
  386.     __property TFormBorderStyle BorderStyle = {read=FBorderStyle, write=SetBorderStyle, stored=IsForm, 
  387.         default=2};
  388.     __property AutoScroll  = {stored=IsAutoScrollStored, default=1};
  389.     __property HWND ClientHandle = {read=FClientHandle, nodefault};
  390.     __property ClientHeight  = {write=SetClientHeight, stored=IsClientSizeStored};
  391.     __property ClientWidth  = {write=SetClientWidth, stored=IsClientSizeStored};
  392.     __property Ctl3D ;
  393.     __property TFormStyle FormStyle = {read=FFormStyle, write=SetFormStyle, stored=IsForm, default=0};
  394.     __property Height  = {stored=IsFormSizeStored};
  395.     __property HorzScrollBar  = {stored=IsForm};
  396.     __property Graphics::TIcon* Icon = {read=FIcon, write=SetIcon, stored=IsIconStored};
  397.     __property int MDIChildCount = {read=GetMDIChildCount, nodefault};
  398.     __property TForm* MDIChildren[int I] = {read=GetMDIChildren};
  399.     __property Menus::TMenuItem* ObjectMenuItem = {read=FObjectMenuItem, write=SetObjectMenuItem, stored=
  400.         IsForm};
  401.     __property int PixelsPerInch = {read=GetPixelsPerInch, write=SetPixelsPerInch, stored=false, nodefault
  402.         };
  403.     __property ParentFont ;
  404.     __property PopupMenu  = {stored=IsForm};
  405.     __property TPosition Position = {read=FPosition, write=SetPosition, stored=IsForm, default=0};
  406.     __property TPrintScale PrintScale = {read=FPrintScale, write=FPrintScale, stored=IsForm, default=1}
  407.         ;
  408.     __property bool Scaled = {read=GetScaled, write=SetScaled, stored=IsForm, default=1};
  409.     __property TTileMode TileMode = {read=FTileMode, write=FTileMode, default=0};
  410.     __property VertScrollBar  = {stored=IsForm};
  411.     __property Visible  = {write=SetVisible, default=0};
  412.     __property Width  = {stored=IsFormSizeStored};
  413.     __property Menus::TMenuItem* WindowMenu = {read=FWindowMenu, write=SetWindowMenu, stored=IsForm};
  414.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate, stored=IsForm};
  415.         
  416.     __property OnClick  = {stored=IsForm};
  417.     __property TCloseEvent OnClose = {read=FOnClose, write=FOnClose, stored=IsForm};
  418.     __property TCloseQueryEvent OnCloseQuery = {read=FOnCloseQuery, write=FOnCloseQuery, stored=IsForm}
  419.         ;
  420.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate, stored=IsForm};
  421.     __property OnDblClick  = {stored=IsForm};
  422.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy, stored=IsForm};
  423.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate, stored=IsForm
  424.         };
  425.     __property OnDragDrop  = {stored=IsForm};
  426.     __property OnDragOver  = {stored=IsForm};
  427.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  428.     __property Classes::TNotifyEvent OnHide = {read=FOnHide, write=FOnHide, stored=IsForm};
  429.     __property OnKeyDown  = {stored=IsForm};
  430.     __property OnKeyPress  = {stored=IsForm};
  431.     __property OnKeyUp  = {stored=IsForm};
  432.     __property OnMouseDown  = {stored=IsForm};
  433.     __property OnMouseMove  = {stored=IsForm};
  434.     __property OnMouseUp  = {stored=IsForm};
  435.     __property Classes::TNotifyEvent OnPaint = {read=FOnPaint, write=FOnPaint, stored=IsForm};
  436.     __property Classes::TNotifyEvent OnResize = {read=FOnResize, write=FOnResize, stored=IsForm};
  437.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow, stored=IsForm};
  438.     
  439. public:
  440.     __fastcall virtual TCustomForm(Classes::TComponent* AOwner);
  441.     __fastcall TCustomForm(Classes::TComponent* AOwner, int Dummy);
  442.     __fastcall virtual ~TCustomForm(void);
  443.     void __fastcall Close(void);
  444.     bool __fastcall CloseQuery(void);
  445.     void __fastcall DefocusControl(Controls::TWinControl* Control, bool Removing);
  446.     void __fastcall FocusControl(Controls::TWinControl* Control);
  447.     Graphics::TBitmap* __fastcall GetFormImage(void);
  448.     HIDESBASE void __fastcall Hide(void);
  449.     void __fastcall Print(void);
  450.     void __fastcall Release(void);
  451.     HIDESBASE void __fastcall SendCancelMode(Controls::TControl* Sender);
  452.     virtual void __fastcall SetFocus(void);
  453.     bool __fastcall SetFocusedControl(Controls::TWinControl* Control);
  454.     HIDESBASE void __fastcall Show(void);
  455.     int __fastcall ShowModal(void);
  456.     virtual bool __fastcall WantChildKey(Controls::TControl* Child, Messages::TMessage &Message);
  457.     __property bool Active = {read=FActive, nodefault};
  458.     __property Controls::TWinControl* ActiveControl = {read=FActiveControl, write=SetActiveControl, stored=
  459.         IsForm};
  460.     __property Controls::TWinControl* ActiveOleControl = {read=FActiveOleControl, write=FActiveOleControl
  461.         };
  462.     __property Graphics::TCanvas* Canvas = {read=GetCanvas};
  463.     __property Caption  = {stored=IsForm};
  464.     __property Color  = {stored=IsColorStored, default=-2147483643};
  465.     __property TDesigner* Designer = {read=FDesigner, write=SetDesigner};
  466.     __property bool DropTarget = {read=FDropTarget, write=FDropTarget, nodefault};
  467.     __property Font ;
  468.     __property System::AnsiString HelpFile = {read=FHelpFile, write=FHelpFile};
  469.     __property bool KeyPreview = {read=FKeyPreview, write=FKeyPreview, stored=IsForm, default=0};
  470.     __property Menus::TMainMenu* Menu = {read=FMenu, write=SetMenu, stored=IsForm};
  471.     __property TModalResult ModalResult = {read=FModalResult, write=FModalResult, nodefault};
  472.     __property _di_IOleForm OleFormObject = {read=FOleForm, write=FOleForm};
  473.     __property TWindowState WindowState = {read=FWindowState, write=SetWindowState, stored=IsForm, default=0
  474.         };
  475. public:
  476.     /* TWinControl.CreateParented */ __fastcall TCustomForm(HWND ParentWindow) : Forms::TScrollingWinControl(
  477.         ParentWindow) { }
  478.     
  479. };
  480.  
  481. class PASCALIMPLEMENTATION TDesigner : public System::TObject 
  482. {
  483.     typedef System::TObject inherited;
  484.     
  485. private:
  486.     TCustomForm* FCustomForm;
  487.     bool __fastcall GetIsControl(void);
  488.     void __fastcall SetIsControl(bool Value);
  489.     
  490. public:
  491.     virtual bool __fastcall IsDesignMsg(Controls::TControl* Sender, Messages::TMessage &Message) = 0;
  492.     virtual void __fastcall Modified(void) = 0;
  493.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  494.         ) = 0;
  495.     virtual void __fastcall PaintGrid(void) = 0;
  496.     virtual void __fastcall ValidateRename(Classes::TComponent* AComponent, const System::AnsiString CurName
  497.         , const System::AnsiString NewName) = 0;
  498.     __property bool IsControl = {read=GetIsControl, write=SetIsControl, nodefault};
  499.     __property TCustomForm* Form = {read=FCustomForm, write=FCustomForm};
  500. public:
  501.     /* TObject.Create */ __fastcall TDesigner(void) : System::TObject() { }
  502.     /* TObject.Destroy */ __fastcall virtual ~TDesigner(void) { }
  503.     
  504. };
  505.  
  506. enum TActiveFormBorderStyle { afbNone, afbSingle, afbSunken, afbRaised };
  507.  
  508. class DELPHICLASS TCustomActiveForm;
  509. class PASCALIMPLEMENTATION TCustomActiveForm : public Forms::TCustomForm 
  510. {
  511.     typedef Forms::TCustomForm inherited;
  512.     
  513. private:
  514.     TActiveFormBorderStyle FAxBorderStyle;
  515.     void __fastcall SetAxBorderStyle(TActiveFormBorderStyle Value);
  516.     
  517. protected:
  518.     virtual void __fastcall CreateParams(Controls::TCreateParams &Params);
  519.     
  520. public:
  521.     __fastcall virtual TCustomActiveForm(Classes::TComponent* AOwner);
  522.     virtual bool __fastcall WantChildKey(Controls::TControl* Child, Messages::TMessage &Message);
  523.     __property Visible ;
  524.     
  525. __published:
  526.     __property ActiveControl ;
  527.     __property AutoScroll ;
  528.     __property TActiveFormBorderStyle AxBorderStyle = {read=FAxBorderStyle, write=SetAxBorderStyle, default=1
  529.         };
  530.     __property Caption  = {stored=true};
  531.     __property Color ;
  532.     __property Font ;
  533.     __property Height  = {stored=true};
  534.     __property HorzScrollBar ;
  535.     __property KeyPreview ;
  536.     __property PixelsPerInch ;
  537.     __property PopupMenu ;
  538.     __property PrintScale ;
  539.     __property Scaled ;
  540.     __property ShowHint ;
  541.     __property VertScrollBar ;
  542.     __property Width  = {stored=true};
  543.     __property OnActivate ;
  544.     __property OnClick ;
  545.     __property OnCreate ;
  546.     __property OnDblClick ;
  547.     __property OnDestroy ;
  548.     __property OnDeactivate ;
  549.     __property OnDragDrop ;
  550.     __property OnDragOver ;
  551.     __property OnKeyDown ;
  552.     __property OnKeyPress ;
  553.     __property OnKeyUp ;
  554.     __property OnMouseDown ;
  555.     __property OnMouseMove ;
  556.     __property OnMouseUp ;
  557.     __property OnPaint ;
  558. public:
  559.     /* TCustomForm.CreateNew */ __fastcall TCustomActiveForm(Classes::TComponent* AOwner, int Dummy) : 
  560.         Forms::TCustomForm(AOwner, Dummy) { }
  561.     /* TCustomForm.Destroy */ __fastcall virtual ~TCustomActiveForm(void) { }
  562.     
  563. public:
  564.     /* TWinControl.CreateParented */ __fastcall TCustomActiveForm(HWND ParentWindow) : Forms::TCustomForm(
  565.         ParentWindow) { }
  566.     
  567. };
  568.  
  569. class PASCALIMPLEMENTATION TForm : public Forms::TCustomForm 
  570. {
  571.     typedef Forms::TCustomForm inherited;
  572.     
  573. public:
  574.     void __fastcall ArrangeIcons(void);
  575.     void __fastcall Cascade(void);
  576.     void __fastcall Next(void);
  577.     void __fastcall Previous(void);
  578.     void __fastcall Tile(void);
  579.     __property ActiveMDIChild ;
  580.     __property ClientHandle ;
  581.     __property MDIChildCount ;
  582.     __property MDIChildren ;
  583.     __property TileMode ;
  584.     
  585. __published:
  586.     __property ActiveControl ;
  587.     __property BorderIcons ;
  588.     __property BorderStyle ;
  589.     __property AutoScroll ;
  590.     __property Caption ;
  591.     __property ClientHeight ;
  592.     __property ClientWidth ;
  593.     __property Ctl3D ;
  594.     __property Color ;
  595.     __property Enabled ;
  596.     __property ParentFont ;
  597.     __property Font ;
  598.     __property FormStyle ;
  599.     __property Height ;
  600.     __property HelpFile ;
  601.     __property HorzScrollBar ;
  602.     __property Icon ;
  603.     __property KeyPreview ;
  604.     __property Menu ;
  605.     __property ObjectMenuItem ;
  606.     __property PixelsPerInch ;
  607.     __property PopupMenu ;
  608.     __property Position ;
  609.     __property PrintScale ;
  610.     __property Scaled ;
  611.     __property ShowHint ;
  612.     __property VertScrollBar ;
  613.     __property Visible ;
  614.     __property Width ;
  615.     __property WindowState ;
  616.     __property WindowMenu ;
  617.     __property OnActivate ;
  618.     __property OnClick ;
  619.     __property OnClose ;
  620.     __property OnCloseQuery ;
  621.     __property OnCreate ;
  622.     __property OnDblClick ;
  623.     __property OnDestroy ;
  624.     __property OnDeactivate ;
  625.     __property OnDragDrop ;
  626.     __property OnDragOver ;
  627.     __property OnHide ;
  628.     __property OnHelp ;
  629.     __property OnKeyDown ;
  630.     __property OnKeyPress ;
  631.     __property OnKeyUp ;
  632.     __property OnMouseDown ;
  633.     __property OnMouseMove ;
  634.     __property OnMouseUp ;
  635.     __property OnPaint ;
  636.     __property OnResize ;
  637.     __property OnShow ;
  638. public:
  639.     /* TCustomForm.Create */ __fastcall virtual TForm(Classes::TComponent* AOwner) : Forms::TCustomForm(
  640.         AOwner) { }
  641.     /* TCustomForm.CreateNew */ __fastcall TForm(Classes::TComponent* AOwner, int Dummy) : Forms::TCustomForm(
  642.         AOwner, Dummy) { }
  643.     /* TCustomForm.Destroy */ __fastcall virtual ~TForm(void) { }
  644.     
  645. public:
  646.     /* TWinControl.CreateParented */ __fastcall TForm(HWND ParentWindow) : Forms::TCustomForm(ParentWindow
  647.         ) { }
  648.     
  649. };
  650.  
  651. typedef System::TMetaClass*TFormClass;
  652.  
  653. class DELPHICLASS TDataModule;
  654. class PASCALIMPLEMENTATION TDataModule : public Classes::TComponent 
  655. {
  656.     typedef Classes::TComponent inherited;
  657.     
  658. private:
  659.     tagPOINT FDesignSize;
  660.     tagPOINT FDesignOffset;
  661.     Classes::TNotifyEvent FOnCreate;
  662.     Classes::TNotifyEvent FOnDestroy;
  663.     void __fastcall ReadHeight(Classes::TReader* Reader);
  664.     void __fastcall ReadHorizontalOffset(Classes::TReader* Reader);
  665.     void __fastcall ReadVerticalOffset(Classes::TReader* Reader);
  666.     void __fastcall ReadWidth(Classes::TReader* Reader);
  667.     void __fastcall WriteWidth(Classes::TWriter* Writer);
  668.     void __fastcall WriteHorizontalOffset(Classes::TWriter* Writer);
  669.     void __fastcall WriteVerticalOffset(Classes::TWriter* Writer);
  670.     void __fastcall WriteHeight(Classes::TWriter* Writer);
  671.     
  672. protected:
  673.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  674.     DYNAMIC void __fastcall GetChildren(Classes::TGetChildProc Proc, Classes::TComponent* Root);
  675.     HRESULT __safecall GetProviderNames(System::OleVariant &GetProviderNames_result);
  676.     /* virtual class method */ virtual void __fastcall UpdateRegistry(bool Register, const System::AnsiString 
  677.         ClassID, const System::AnsiString ProgID) { UpdateRegistry(__classid(TDataModule), Register, ClassID
  678.         , ProgID); }
  679.     /*         class method */ static void __fastcall UpdateRegistry(System::TMetaClass* vmt, bool Register
  680.         , const System::AnsiString ClassID, const System::AnsiString ProgID);
  681.     virtual void __fastcall AfterConstruction(void);
  682.     virtual void __fastcall BeforeDestruction(void);
  683.     
  684. public:
  685.     __fastcall virtual TDataModule(Classes::TComponent* AOwner);
  686.     __fastcall TDataModule(Classes::TComponent* AOwner, int Dummy);
  687.     __fastcall virtual ~TDataModule(void);
  688.     __property tagPOINT DesignOffset = {read=FDesignOffset, write=FDesignOffset};
  689.     __property tagPOINT DesignSize = {read=FDesignSize, write=FDesignSize};
  690.     
  691. __published:
  692.     __property Classes::TNotifyEvent OnCreate = {read=FOnCreate, write=FOnCreate};
  693.     __property Classes::TNotifyEvent OnDestroy = {read=FOnDestroy, write=FOnDestroy};
  694. };
  695.  
  696. struct TCursorRec;
  697. typedef TCursorRec *PCursorRec;
  698.  
  699. struct TCursorRec
  700. {
  701.     TCursorRec *Next;
  702.     int Index;
  703.     HICON Handle;
  704. } ;
  705.  
  706. class DELPHICLASS TScreen;
  707. class PASCALIMPLEMENTATION TScreen : public Classes::TComponent 
  708. {
  709.     typedef Classes::TComponent inherited;
  710.     
  711. private:
  712.     Classes::TStrings* FFonts;
  713.     Classes::TStrings* FImes;
  714.     System::AnsiString FDefaultIme;
  715.     HKL FDefaultKbLayout;
  716.     int FPixelsPerInch;
  717.     Controls::TCursor FCursor;
  718.     int FCursorCount;
  719.     Classes::TList* FForms;
  720.     Classes::TList* FCustomForms;
  721.     Classes::TList* FDataModules;
  722.     TCursorRec *FCursorList;
  723.     HICON FDefaultCursor;
  724.     Controls::TWinControl* FActiveControl;
  725.     TCustomForm* FActiveCustomForm;
  726.     TForm* FActiveForm;
  727.     Controls::TWinControl* FLastActiveControl;
  728.     TCustomForm* FLastActiveCustomForm;
  729.     TCustomForm* FFocusedForm;
  730.     Classes::TList* FSaveFocusedList;
  731.     Graphics::TFont* FIconFont;
  732.     Classes::TNotifyEvent FOnActiveControlChange;
  733.     Classes::TNotifyEvent FOnActiveFormChange;
  734.     void __fastcall AddDataModule(TDataModule* DataModule);
  735.     void __fastcall AddForm(TCustomForm* AForm);
  736.     void __fastcall CreateCursors(void);
  737.     void __fastcall DeleteCursor(int Index);
  738.     void __fastcall DestroyCursors(void);
  739.     void __fastcall IconFontChanged(System::TObject* Sender);
  740.     void __fastcall InitImes(void);
  741.     int __fastcall GetCustomFormCount(void);
  742.     TCustomForm* __fastcall GetCustomForms(int Index);
  743.     HICON __fastcall GetCursors(int Index);
  744.     TDataModule* __fastcall GetDataModule(int Index);
  745.     int __fastcall GetDataModuleCount(void);
  746.     int __fastcall GetHeight(void);
  747.     int __fastcall GetWidth(void);
  748.     TForm* __fastcall GetForm(int Index);
  749.     int __fastcall GetFormCount(void);
  750.     void __fastcall GetMetricSettings(void);
  751.     void __fastcall InsertCursor(int Index, HICON Handle);
  752.     void __fastcall RemoveDataModule(TDataModule* DataModule);
  753.     void __fastcall RemoveForm(TCustomForm* AForm);
  754.     void __fastcall SetCursors(int Index, HICON Handle);
  755.     void __fastcall SetCursor(Controls::TCursor Value);
  756.     void __fastcall UpdateLastActive(void);
  757.     
  758. public:
  759.     __fastcall virtual TScreen(Classes::TComponent* AOwner);
  760.     __fastcall virtual ~TScreen(void);
  761.     __property Controls::TWinControl* ActiveControl = {read=FActiveControl};
  762.     __property TCustomForm* ActiveCustomForm = {read=FActiveCustomForm};
  763.     __property TForm* ActiveForm = {read=FActiveForm};
  764.     __property int CustomFormCount = {read=GetCustomFormCount, nodefault};
  765.     __property TCustomForm* CustomForms[int Index] = {read=GetCustomForms};
  766.     __property Controls::TCursor Cursor = {read=FCursor, write=SetCursor, nodefault};
  767.     __property HICON Cursors[int Index] = {read=GetCursors, write=SetCursors};
  768.     __property TDataModule* DataModules[int Index] = {read=GetDataModule};
  769.     __property int DataModuleCount = {read=GetDataModuleCount, nodefault};
  770.     __property Graphics::TFont* IconFont = {read=FIconFont, write=FIconFont};
  771.     __property Classes::TStrings* Fonts = {read=FFonts};
  772.     __property int FormCount = {read=GetFormCount, nodefault};
  773.     __property TForm* Forms[int Index] = {read=GetForm};
  774.     __property Classes::TStrings* Imes = {read=FImes};
  775.     __property System::AnsiString DefaultIme = {read=FDefaultIme};
  776.     __property HKL DefaultKbLayout = {read=FDefaultKbLayout, nodefault};
  777.     __property int Height = {read=GetHeight, nodefault};
  778.     __property int PixelsPerInch = {read=FPixelsPerInch, nodefault};
  779.     __property int Width = {read=GetWidth, nodefault};
  780.     __property Classes::TNotifyEvent OnActiveControlChange = {read=FOnActiveControlChange, write=FOnActiveControlChange
  781.         };
  782.     __property Classes::TNotifyEvent OnActiveFormChange = {read=FOnActiveFormChange, write=FOnActiveFormChange
  783.         };
  784. };
  785.  
  786. enum TTimerMode { tmShow, tmHide };
  787.  
  788. struct THintInfo;
  789. typedef THintInfo *PHintInfo;
  790.  
  791. struct THintInfo
  792. {
  793.     Controls::TControl* HintControl;
  794.     System::TMetaClass*HintWindowClass;
  795.     tagPOINT HintPos;
  796.     int HintMaxWidth;
  797.     Graphics::TColor HintColor;
  798.     Windows::TRect CursorRect;
  799.     tagPOINT CursorPos;
  800.     int ReshowTimeout;
  801.     int HideTimeout;
  802.     System::AnsiString HintStr;
  803.     void *HintData;
  804. } ;
  805.  
  806. struct TCMHintShow
  807. {
  808.     Cardinal Msg;
  809.     int Reserved;
  810.     THintInfo *HintInfo;
  811.     int Result;
  812. } ;
  813.  
  814. typedef void __fastcall (__closure *TMessageEvent)(tagMSG &Msg, bool &Handled);
  815.  
  816. typedef void __fastcall (__closure *TExceptionEvent)(System::TObject* Sender, Sysutils::Exception* E
  817.     );
  818.  
  819. typedef void __fastcall (__closure *TIdleEvent)(System::TObject* Sender, bool &Done);
  820.  
  821. typedef void __fastcall (__closure *TShowHintEvent)(System::AnsiString &HintStr, bool &CanShow, THintInfo 
  822.     &HintInfo);
  823.  
  824. typedef bool __fastcall (__closure *TWindowHook)(Messages::TMessage &Message);
  825.  
  826. class DELPHICLASS TApplication;
  827. class PASCALIMPLEMENTATION TApplication : public Classes::TComponent 
  828. {
  829.     typedef Classes::TComponent inherited;
  830.     
  831. private:
  832.     HWND FHandle;
  833.     void *FObjectInstance;
  834.     TForm* FMainForm;
  835.     Controls::TControl* FMouseControl;
  836.     System::AnsiString FHelpFile;
  837.     System::AnsiString FHint;
  838.     bool FHintActive;
  839.     bool FUpdateFormatSettings;
  840.     bool FUpdateMetricSettings;
  841.     bool FShowMainForm;
  842.     Graphics::TColor FHintColor;
  843.     Controls::TControl* FHintControl;
  844.     Windows::TRect FHintCursorRect;
  845.     int FHintPause;
  846.     int FHintShortPause;
  847.     int FHintHidePause;
  848.     Controls::THintWindow* FHintWindow;
  849.     bool FShowHint;
  850.     TTimerMode FTimerMode;
  851.     Word FTimerHandle;
  852.     System::AnsiString FTitle;
  853.     Classes::TList* FTopMostList;
  854.     int FTopMostLevel;
  855.     Graphics::TIcon* FIcon;
  856.     bool FTerminate;
  857.     bool FActive;
  858.     bool FAllowTesting;
  859.     int FTestLib;
  860.     bool FHandleCreated;
  861.     bool FRunning;
  862.     Classes::TList* FWindowHooks;
  863.     void *FWindowList;
  864.     HWND FDialogHandle;
  865.     TExceptionEvent FOnException;
  866.     TMessageEvent FOnMessage;
  867.     Classes::THelpEvent FOnHelp;
  868.     Classes::TNotifyEvent FOnHint;
  869.     TIdleEvent FOnIdle;
  870.     Classes::TNotifyEvent FOnDeactivate;
  871.     Classes::TNotifyEvent FOnActivate;
  872.     TShowHintEvent FOnShowHint;
  873.     Classes::TNotifyEvent FOnMinimize;
  874.     Classes::TNotifyEvent FOnRestore;
  875.     void __fastcall ActivateHint(const tagPOINT &CursorPos);
  876.     bool __fastcall CheckIniChange(Messages::TMessage &Message);
  877.     Controls::TControl* __fastcall DoMouseIdle(void);
  878.     void __fastcall DoNormalizeTopMosts(bool IncludeMain);
  879.     System::AnsiString __fastcall GetCurrentHelpFile(void);
  880.     HWND __fastcall GetDialogHandle(void);
  881.     System::AnsiString __fastcall GetExeName(void);
  882.     HICON __fastcall GetIconHandle(void);
  883.     System::AnsiString __fastcall GetTitle(void);
  884.     void __fastcall HintTimerExpired(void);
  885.     void __fastcall IconChanged(System::TObject* Sender);
  886.     void __fastcall Idle(void);
  887.     bool __fastcall InvokeHelp(Word Command, int Data);
  888.     bool __fastcall IsDlgMsg(tagMSG &Msg);
  889.     bool __fastcall IsHintMsg(tagMSG &Msg);
  890.     bool __fastcall IsKeyMsg(tagMSG &Msg);
  891.     bool __fastcall IsMDIMsg(tagMSG &Msg);
  892.     void __fastcall NotifyForms(Word Msg);
  893.     bool __fastcall ProcessMessage(void);
  894.     void __fastcall SetDialogHandle(HWND Value);
  895.     void __fastcall SetHandle(HWND Value);
  896.     void __fastcall SetHint(const System::AnsiString Value);
  897.     void __fastcall SetHintColor(Graphics::TColor Value);
  898.     void __fastcall SetIcon(Graphics::TIcon* Value);
  899.     void __fastcall SetShowHint(bool Value);
  900.     void __fastcall SetTitle(const System::AnsiString Value);
  901.     void __fastcall StartHintTimer(int Value, TTimerMode TimerMode);
  902.     void __fastcall StopHintTimer(void);
  903.     void __fastcall WndProc(Messages::TMessage &Message);
  904.     void __fastcall UpdateVisible(void);
  905.     
  906. public:
  907.     __fastcall virtual TApplication(Classes::TComponent* AOwner);
  908.     __fastcall virtual ~TApplication(void);
  909.     void __fastcall BringToFront(void);
  910.     void __fastcall ControlDestroyed(Controls::TControl* Control);
  911.     void __fastcall CancelHint(void);
  912.     void __fastcall CreateForm(System::TMetaClass* InstanceClass, void *Reference);
  913.     void __fastcall CreateHandle(void);
  914.     void __fastcall HandleException(System::TObject* Sender);
  915.     void __fastcall HandleMessage(void);
  916.     bool __fastcall HelpCommand(int Command, int Data);
  917.     bool __fastcall HelpContext(Classes::THelpContext Context);
  918.     bool __fastcall HelpJump(const System::AnsiString JumpID);
  919.     void __fastcall HideHint(void);
  920.     void __fastcall HintMouseMessage(Controls::TControl* Control, Messages::TMessage &Message);
  921.     void __fastcall HookMainWindow(TWindowHook Hook);
  922.     void __fastcall Initialize(void);
  923.     int __fastcall MessageBox(char * Text, char * Caption, int Flags);
  924.     void __fastcall Minimize(void);
  925.     void __fastcall NormalizeAllTopMosts(void);
  926.     void __fastcall NormalizeTopMosts(void);
  927.     void __fastcall ProcessMessages(void);
  928.     void __fastcall Restore(void);
  929.     void __fastcall RestoreTopMosts(void);
  930.     void __fastcall Run(void);
  931.     void __fastcall ShowException(Sysutils::Exception* E);
  932.     void __fastcall Terminate(void);
  933.     void __fastcall UnhookMainWindow(TWindowHook Hook);
  934.     __property bool Active = {read=FActive, nodefault};
  935.     __property bool AllowTesting = {read=FAllowTesting, write=FAllowTesting, nodefault};
  936.     __property System::AnsiString CurrentHelpFile = {read=GetCurrentHelpFile};
  937.     __property HWND DialogHandle = {read=GetDialogHandle, write=SetDialogHandle, nodefault};
  938.     __property System::AnsiString ExeName = {read=GetExeName};
  939.     __property HWND Handle = {read=FHandle, write=SetHandle, nodefault};
  940.     __property System::AnsiString HelpFile = {read=FHelpFile, write=FHelpFile};
  941.     __property System::AnsiString Hint = {read=FHint, write=SetHint};
  942.     __property Graphics::TColor HintColor = {read=FHintColor, write=SetHintColor, nodefault};
  943.     __property int HintPause = {read=FHintPause, write=FHintPause, nodefault};
  944.     __property int HintShortPause = {read=FHintShortPause, write=FHintShortPause, nodefault};
  945.     __property int HintHidePause = {read=FHintHidePause, write=FHintHidePause, nodefault};
  946.     __property Graphics::TIcon* Icon = {read=FIcon, write=SetIcon};
  947.     __property TForm* MainForm = {read=FMainForm};
  948.     __property bool ShowHint = {read=FShowHint, write=SetShowHint, nodefault};
  949.     __property bool ShowMainForm = {read=FShowMainForm, write=FShowMainForm, nodefault};
  950.     __property bool Terminated = {read=FTerminate, nodefault};
  951.     __property System::AnsiString Title = {read=GetTitle, write=SetTitle};
  952.     __property bool UpdateFormatSettings = {read=FUpdateFormatSettings, write=FUpdateFormatSettings, nodefault
  953.         };
  954.     __property bool UpdateMetricSettings = {read=FUpdateMetricSettings, write=FUpdateMetricSettings, nodefault
  955.         };
  956.     __property Classes::TNotifyEvent OnActivate = {read=FOnActivate, write=FOnActivate};
  957.     __property Classes::TNotifyEvent OnDeactivate = {read=FOnDeactivate, write=FOnDeactivate};
  958.     __property TExceptionEvent OnException = {read=FOnException, write=FOnException};
  959.     __property TIdleEvent OnIdle = {read=FOnIdle, write=FOnIdle};
  960.     __property Classes::THelpEvent OnHelp = {read=FOnHelp, write=FOnHelp};
  961.     __property Classes::TNotifyEvent OnHint = {read=FOnHint, write=FOnHint};
  962.     __property TMessageEvent OnMessage = {read=FOnMessage, write=FOnMessage};
  963.     __property Classes::TNotifyEvent OnMinimize = {read=FOnMinimize, write=FOnMinimize};
  964.     __property Classes::TNotifyEvent OnRestore = {read=FOnRestore, write=FOnRestore};
  965.     __property TShowHintEvent OnShowHint = {read=FOnShowHint, write=FOnShowHint};
  966. };
  967.  
  968. //-- var, const, procedure ---------------------------------------------------
  969. extern PACKAGE TApplication* Application;
  970. extern PACKAGE TScreen* Screen;
  971. extern PACKAGE void *Ctl3DBtnWndProc;
  972. extern PACKAGE int __stdcall (*Ctl3DDlgFramePaint)(HWND Window, int Msg, int wParam, int lParam);
  973. extern PACKAGE int __stdcall (*Ctl3DCtlColorEx)(HWND Window, int Msg, int wParam, int lParam);
  974. extern PACKAGE System::TMetaClass*HintWindowClass;
  975. extern PACKAGE System::Variant __fastcall (*GetDataModuleProviderNames)(Classes::TComponent* Component
  976.     );
  977. extern PACKAGE void __fastcall (*UpdateDataModuleRegistry)(bool Register, const System::AnsiString ClassID
  978.     , const System::AnsiString ProgID);
  979. extern PACKAGE void * __fastcall DisableTaskWindows(HWND ActiveWindow);
  980. extern PACKAGE void __fastcall EnableTaskWindows(void * WindowList);
  981. extern PACKAGE bool __fastcall ForegroundTask(void);
  982. extern PACKAGE void __fastcall InitCtl3D(void);
  983. extern PACKAGE void __fastcall DoneCtl3D(void);
  984. extern PACKAGE bool __fastcall Subclass3DWnd(HWND Wnd);
  985. extern PACKAGE void __fastcall Subclass3DDlg(HWND Wnd, Word Flags);
  986. extern PACKAGE void __fastcall SetAutoSubClass(bool Enable);
  987. extern PACKAGE void * __fastcall MakeObjectInstance(Controls::TWndMethod Method);
  988. extern PACKAGE void __fastcall FreeObjectInstance(void * ObjectInstance);
  989. extern PACKAGE HWND __fastcall AllocateHWnd(Controls::TWndMethod Method);
  990. extern PACKAGE void __fastcall DeallocateHWnd(HWND Wnd);
  991. extern PACKAGE Classes::TShiftState __fastcall KeysToShiftState(Word Keys);
  992. extern PACKAGE Classes::TShiftState __fastcall KeyDataToShiftState(int KeyData);
  993. extern PACKAGE bool __fastcall IsAccel(Word VK, const System::AnsiString Str);
  994. extern PACKAGE TCustomForm* __fastcall GetParentForm(Controls::TControl* Control);
  995. extern PACKAGE TCustomForm* __fastcall ValidParentForm(Controls::TControl* Control);
  996.  
  997. }    /* namespace Forms */
  998. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  999. using namespace Forms;
  1000. #endif
  1001. //-- end unit ----------------------------------------------------------------
  1002. #endif    // Forms
  1003.